[turbo pascal] potrzebuje prostej bazy danych

[Eryk.]

cześć. potrzebuje bazy danych wykonanej w turbo pascalu. co ma robić ?

dodawac osobe

usuwac osobe

wyswietlac osobe

edytować osobe

szukam najprostsze menu najprostsze procedury w bazie danych ale nigdzie nie moge znaleść;/

proszę o pomoc

[Approx]

Nie programuje w Pascalu, ale znalazłem kawałki kodu, które mogą ci jakoś pomóc. Podane były trzy metody:

1.

 

 

 

PROGRAM Database;
TYPE
Data = record
Name : String;
Age : Byte;
EmployeeNum : LongInt;
End;
VAR
Database : Array[0..250] Of Data; { I believe this is the maximum }

Begin
With Database[0] Do
Begin
Name := 'John Doe';
Age := 50;
EmployeeNum := 107952;
End;
End.

 

 

2.

 

 

 

PROGRAM Database;
TYPE
Data = record
Name : String;
Age : Byte;
EmployeeNum : LongInt;
Next : Pointer;
End;
DataPtr = ^Data;
VAR
First : DataPtr;
Current : DataPtr;
Last : DataPtr;

PROCEDURE AddToList(Name : String; Age : Byte; EmpNum : LongInt);
Begin
New(Current); { Allocates the memory }
If First = nil Then
Begin
First := Current;
Last := First;
End
ELSE Last^.Next := Current;

Current^.Name := Name;
Current^.Age := Age;
Current^.EmployeeNum := EmpNum;
End;

Begin
AddToList('John Doe',50,107952);

Current := First; { Don't forget to release the memory  }
While Current <> nil Do
Begin
First := Current;
Current := Current^.Next;
Dispose(First);
End;
End.

 

 

3. Do pliku

 

 

 

 

PROGRAM Database;
TYPE
Data = record
Name : String;
Age : Byte;
EmployeeNum : LongInt;
End;

PROCEDURE SaveName(Name : String; Age : Byte; EmpNum : LongInt);
VAR
F : File;
Database : Data;
Begin
Assign(F,'MyFile.Dat');
{$I-} Reset(F,1); {$I+}
If IOResult <> 0 Then Rewrite(F,1);
With Database Do
Begin
Database.Name := Name;
Database.Age := Age;
Database.EmployeeNum := EmpNum;
End;
BlockWrite(F,Database,SizeOf(Database));
Close(F);
End;

Begin
SaveName('John Doe',50,107952);
End.

 

 

[Eryk.]

a posiada ktoś całość?

[NibyCheater]

Poszukaj implementacji sqlite

[iLikeGood]

Lenistwo osiągnęło szczyt